home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
data
/
dora
/
doraschg.plp
< prev
next >
Wrap
Text File
|
1993-11-30
|
2KB
|
63 lines
/************************************************************************
* 設定情報の変更処理 *
*************************************************************************/
/* ファイルからユーザー設定情報を読み込む */
%LOADset{
var newfile [64];
SNDMSG({erande_f.snd});
footnote({ユーザー設定情報を読み込むファイルを指定して下さい});
newfile:=@filesel({USR});
case (newfile<>{},{Yes},{
%newdir @getcdir;
case (@nochar(newdir)==3,
{Yes},{newfile:=newdir|newfile},
{No},{newfile:=newdir|{\}|newfile});
case (@filechk(newfile),{Yes},{
%ExcPilot {#}|newfile;ExcPilot;init;
SETFILE1:=@tail(newfile,{\});
})});
setcdir(CDIR);
};
/* ファイルからRTBBS-NET設定情報を読み込む */
%LOADtg{var newfile [64];SNDMSG({erande_f.snd});
footnote({RTBBS-NETでの処理の設定を読み込むファイルを}|
{指定して下さい});
newfile:=@filesel({TG});
case (newfile<>{},{Yes},{
%newdir @getcdir;
case (@nochar(newdir)==3,
{Yes},{newfile:=newdir|newfile},
{No},{newfile:=newdir|{\}|newfile});
case (@filechk(newfile),{Yes},{
%ExcPilot {#}|newfile;ExcPilot;
setcdir(CDIR);SETFILE2:=@tail(newfile,{\});
})}
);
setcdir(CDIR);
};
/* 設定を元に戻す */
%CANCEL {
setcdir(CDIR);
#DORASET.SET;
#DORATGK.SET;
init;
setcdir(CDIR);
SETFILE1:={標準設定};
SETFILE2:={標準設定}};
%SETCHNG{loop ({SNDMSG({erande_f.snd});
footnote({現在のユーザー設定ファイル=}|SETFILE1|
{ NETでの処理設定ファイル=}|SETFILE2);
select ({どの設定情報をファイルから読み込みますか?},
Wtime4,{im({No})},
{ ユーザー 設定情報 },{LOADset;im({Yes})},
{ ネットでの処理設定情報 },{LOADtg;im({Yes})},
{ 両方の 設定情報 },
{LOADset;LOADtg;im({Yes})},
{ 両方の設定を元に戻す },{CANCEL;im({Yes})},
{ 終了 },{im({No})}
);
});
display({\n\n設定ファイルの読み込みを終了しました\n});
display(NET|{-ネットでの処理は\n}|TGK|{です。});
};
SETFILE1:={一時設定};SETCHNG;